pragma Ravenscar;

with Ada.Real_Time;
use Ada.Real_Time;

package Epoch is

   protected Epoch is
      procedure Get_Start_Time(T : out Ada.Real_Time.Time);
   private

      Start : Ada.Real_Time.Time;
      First : Boolean := True;
   end Epoch;

end Epoch;
